home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / comm / ums / pint.lha / UMS / Rexx / ConfUMS.pint < prev    next >
Text File  |  1997-03-04  |  966b  |  50 lines
  1. /*
  2.  
  3.     $VER: ConfUMS.pint 1.0 (27.8.95)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Updated for PINT (22.2.97):
  9.     Magnus Heino (nd95mho@Student.HGS.SE)
  10.  
  11.    Function:
  12.     Starts ConfUMS from PINT under the same account without
  13.     asking for the password.
  14.  
  15.    History:
  16.     0.1   initial version
  17.     0.2   fixed wrong comment
  18.     0.3   decided to get rid of this strange AMOK style header and
  19.           went back to my good old standard
  20.     0.4   uses fake accounts
  21.     0.5   uses new "EXEC" command
  22.     0.6   fixed header
  23.     1.0   released with IntuiNews 1.3
  24.  
  25.    Requires:
  26.     UMSServer 11.28 or newer
  27.     ums.library 11.18 or newer
  28.     ConfUMS in command path
  29.  
  30.    Example for "ums.config":
  31.     ( PINT.Rexx
  32.     ...
  33.         "#?Window F1 ConfUMS.pint\n"
  34.     ...
  35.     )
  36.  
  37. */
  38.  
  39. /* Exit if PINT is not logged in. */
  40.  
  41. OPTIONS RESULTS
  42.  
  43. GETACCOUNT
  44. IF RESULT=0 THEN EXIT 5
  45. Account=RESULT
  46.  
  47. /* Call ConfUMS */
  48.  
  49. 'EXEC Run >NIL: ConfUMS >NIL: NAME "" PASSWORD @'||Account
  50.